<%
Class HomeModelCity

	Private s_model

	'''构造
	Private Sub Class_Initialize()
		Set s_model = Sa.Model("[City]")
	End Sub
	
	'''析构
	Private Sub Class_Terminate()
		Set s_model = Nothing
	End Sub
	
	Public Function test()
		Response.Write("这是在自身模块下定义的模型")
	End Function

End Class
%>